home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 84xx / 8411.d64 / laterna magica (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  1KB  |  28 lines
  1. 10 REM * LATERNA-MAGICA-DATA-LOADER *
  2. 12 REM
  3. 15 REM ==============================
  4. 16 REM
  5. 20 POKE52,25:POKE56,25:CLR
  6. 30 FORI=6400TO6640:READA:POKEI,A:S=S+A:NEXT
  7. 40 IFS<>26746THENPRINT"DATA-FEHLER!":END
  8. 50 PRINT"OK!"
  9. 60 A$="LOAD"+CHR$(34)+"LATERNA MAGICA"+CHR$(34)+",8"
  10. 70 PRINTCHR$(147);A$:PRINTCHR$(19):PRINT:PRINT:PRINT:PRINT:PRINT:PRINT"RUN"
  11. 75 POKE631,19:POKE632,13:POKE633,13:POKE198,3:NEW
  12. 80 DATA173,5,144,41,240,9,15,141,5,144,198,251,162,72,189,71
  13. 90 DATA26,157,127,29,202,208,247,173,15,25,24,105,72,141,15,25
  14. 100 DATA173,16,25,105,0,141,16,25,165,251,208,14,169,255,141,15
  15. 110 DATA25,169,25,141,16,25,165,252,133,251,96,169,0,133,204,32
  16. 120 DATA245,241,240,251,76,211,25,234,72,120,165,207,240,12,165,206
  17. 130 DATA174,135,2,160,0,132,207,32,161,234,88,104,32,122,242,166
  18. 140 DATA214,224,8,48,2,162,0,164,211,192,8,48,2,160,0,32
  19. 150 DATA12,229,76,175,25,32,129,229,162,0,142,60,3,160,0,177
  20. 160 DATA209,201,160,240,9,169,1,24,109,60,3,141,60,3,192,7
  21. 170 DATA240,3,14,60,3,200,192,8,48,229,32,19,229,232,173,60
  22. 180 DATA3,32,199,25,224,8,240,6,32,12,229,76,120,25,96,32
  23. 190 DATA19,229,152,72,138,72,169,1,133,204,32,117,25,104,170,104
  24. 200 DATA168,32,12,229,76,59,25,157,7,26,157,135,29,96,104,168
  25. 210 DATA104,170,96,201,13,240,3,76,72,25,120,165,207,240,12,165
  26. 220 DATA206,174,135,2,160,0,132,207,32,161,234,88,169,1,133,204
  27. 230 DATA96
  28.